object frmMovCheque: TfrmMovCheque
  Left = 336
  Top = 137
  Width = 324
  Height = 489
  Caption = 'Movimiento Cheque'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    316
    459)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 122
    Width = 36
    Height = 13
    Caption = 'Fecha'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 172
    Top = 122
    Width = 29
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'Tasa'
    FocusControl = edbTasa
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 167
    Width = 93
    Height = 13
    Caption = 'Destino - Origen'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 8
    Width = 102
    Height = 13
    Caption = 'Datos del Cheque'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Shape1: TShape
    Left = 8
    Top = 24
    Width = 299
    Height = 94
    Anchors = [akLeft, akTop, akRight]
  end
  object Label5: TLabel
    Left = 82
    Top = 32
    Width = 19
    Height = 13
    Caption = 'N'#186' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 54
    Top = 48
    Width = 47
    Height = 13
    Caption = 'Importe:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Left = 60
    Top = 64
    Width = 41
    Height = 13
    Caption = 'Banco:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label8: TLabel
    Left = 14
    Top = 80
    Width = 87
    Height = 13
    Caption = 'Fecha Emisi'#243'n:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label9: TLabel
    Left = 24
    Top = 96
    Width = 77
    Height = 13
    Caption = 'Fecha Cobro:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object lblNumero: TLabel
    Left = 112
    Top = 32
    Width = 188
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Transparent = True
  end
  object lblImporte: TLabel
    Left = 112
    Top = 48
    Width = 188
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Transparent = True
  end
  object lblBanco: TLabel
    Left = 112
    Top = 64
    Width = 188
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Transparent = True
  end
  object lblFechaEmision: TLabel
    Left = 112
    Top = 80
    Width = 188
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Transparent = True
  end
  object lblFechaCobro: TLabel
    Left = 112
    Top = 96
    Width = 188
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Transparent = True
  end
  object btnGrabar: TSpeedButton
    Left = 219
    Top = 422
    Width = 87
    Height = 26
    Anchors = [akRight, akBottom]
    Caption = 'Grabar'
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
    OnClick = btnGrabarClick
  end
  object Label10: TLabel
    Left = 8
    Top = 428
    Width = 29
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Filtro'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 261
    Top = 188
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object edbTasa: TDBEdit
    Left = 172
    Top = 138
    Width = 134
    Height = 21
    Anchors = [akTop, akRight]
    DataField = 'TASA'
    DataSource = sMovCartera
    TabOrder = 1
  end
  object rbInversor: TRadioButton
    Left = 30
    Top = 182
    Width = 73
    Height = 17
    Caption = 'Inversor'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    TabStop = True
    OnClick = rbInversorClick
  end
  object rbOperario: TRadioButton
    Left = 150
    Top = 200
    Width = 81
    Height = 17
    Caption = 'Operario'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = rbOperarioClick
  end
  object rbProveedor: TRadioButton
    Left = 30
    Top = 200
    Width = 89
    Height = 17
    Caption = 'Proveedor'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = rbProveedorClick
  end
  object grdDestOrig: TRxDBGrid
    Left = 8
    Top = 224
    Width = 299
    Height = 194
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = sDestinoOrigen
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = grdDestOrigCellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'NOMBRE'
        Title.Alignment = taCenter
        Title.Caption = 'Nombre'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 251
        Visible = True
      end>
  end
  object edtFiltro: TEdit
    Left = 44
    Top = 424
    Width = 72
    Height = 21
    Anchors = [akLeft, akBottom]
    CharCase = ecUpperCase
    TabOrder = 7
    OnChange = edtFiltroChange
  end
  object edbFecha: TDBDateEdit
    Left = 8
    Top = 138
    Width = 121
    Height = 21
    DataField = 'FECHA'
    DataSource = sMovCartera
    NumGlyphs = 2
    TabOrder = 0
  end
  object DBNavigator1: TDBNavigator
    Left = 132
    Top = 424
    Width = 68
    Height = 24
    DataSource = sMovCartera
    VisibleButtons = [nbPost, nbCancel]
    TabOrder = 8
  end
  object rbBanco: TRadioButton
    Left = 150
    Top = 182
    Width = 81
    Height = 17
    Caption = 'Banco'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = rbBancoClick
  end
  object cdsMovCartera: TSQLClientDataSet
    CommandText = 'select *  from CARTERA where ID_MOVIMIENTO = :id'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    OnNewRecord = cdsMovCarteraNewRecord
    DBConnection = Datos.Con
    Left = 24
    Top = 264
    object cdsMovCarteraID_MOVIMIENTO: TIntegerField
      FieldName = 'ID_MOVIMIENTO'
      Required = True
    end
    object cdsMovCarteraFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
    end
    object cdsMovCarteraTIPO_MOVIMIENTO: TSmallintField
      FieldName = 'TIPO_MOVIMIENTO'
      Required = True
      OnChange = cdsMovCarteraTIPO_MOVIMIENTOChange
    end
    object cdsMovCarteraID_CHEQUE: TIntegerField
      FieldName = 'ID_CHEQUE'
      Required = True
    end
    object cdsMovCarteraID_ORIGEN_DESTINO: TIntegerField
      FieldName = 'ID_ORIGEN_DESTINO'
      Required = True
    end
    object cdsMovCarteraTASA: TFloatField
      FieldName = 'TASA'
    end
  end
  object sMovCartera: TDataSource
    DataSet = cdsMovCartera
    OnStateChange = sMovCarteraStateChange
    Left = 56
    Top = 264
  end
  object cdsDestinoOrigen: TSQLClientDataSet
    CommandText = 
      'select APELLIDO ||'#39', '#39'|| NOMBRE as NOMBRE, '#39'1'#39'||ID_INVERSOR as I' +
      'D from INVERSOR'
    Aggregates = <>
    IndexFieldNames = 'NOMBRE'
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Datos.Con
    Left = 24
    Top = 232
    object cdsDestinoOrigenNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 52
    end
    object cdsDestinoOrigenID: TStringField
      FieldName = 'ID'
      Required = True
      Size = 7
    end
  end
  object sDestinoOrigen: TDataSource
    DataSet = cdsDestinoOrigen
    Left = 56
    Top = 232
  end
end
